Home > Artwork > Photography > Photo Blog
>
<%
'getdetailimage
dim filename
filename = Request.QueryString("name")
%>
<%
Dim arrHeaders(35)
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("D:\SWsoft\PEM\CustomerData\webspaces\webspace_00052323\wwwroot\artwork\photography\blog\")
For i = 10 to 14
arrHeaders(i) = objFolder.GetDetailsOf(objFolder.Items, i)
Next
For Each strFileName in objFolder.Items
if right(strFileName,8) = left(filename,8) then
dim title
title = objFolder.GetDetailsOf(strFileName, 10)
response.write(title)
response.write(" ")
dim comment
comment = objFolder.GetDetailsOf(strFileName, 14)
dim datem
datem = objFolder.GetDetailsOf(strFileName, 3)
'Next
End if
Next
%>
